home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus 1995 #5 & #6
/
Amiga Plus CD - 1995 - No. 5 and 6.iso
/
pd
/
emulator
/
zxam spectrum
/
zxam_rexx
/
español
/
saverom.zxam
< prev
next >
Wrap
Text File
|
1995-07-31
|
751b
|
29 lines
/* este script saca la ROM del emulador y la graba como fichero */
/* comprobamos si el emulador está presente */
address command
if ~show(ports,ZXAM_REXX) then do
requestchoice 'title "ZXAM Script error..." body "No encuentro el puerto del emulador!!" gadgets "AARGH!"'
exit
end
/* requester de SAVE */
oldpath=zxamactsavepath()
oldpattern=zxamactpattern()
zxampattern('#?')
nombre=zxamsaverequester('Nombre para el fichero de ROM...')
zxamsavepath(oldpath)
zxampattern(oldpattern)
if nombre='' then exit 0 /* pulsado el CANCEL */
/* abrimos el fichero */
if ~open('fichero',nombre,'W') then exit 0
/* escribimos los 16k de ROM al fichero */
dummy=writech('fichero',zxamgetmem(0,16384))
dummy=close('fichero')
exit